home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / xlib.zip / XSCRSAV.INT < prev    next >
Text File  |  1992-09-06  |  3KB  |  49 lines
  1. (*****************************************************************************)
  2. (*                                                                           *)
  3. (*        Filename        : XSCRSAV.PAS                                      *)
  4. (*        author          : Stefan Boether / Compuserve Id : 100023,275      *)
  5. (*                                                 FidoNet :  2:242/200      *)
  6. (*                                                 FidoNet :  2:243/91       *)
  7. (*                                  Internet: 100023.275@CompuServe.COM      *)
  8. (*        System          : TURBO 6.01 / MS-DOS 3.3 / Netzwerk               *)
  9. (*        Aenderung       :                                                  *)
  10. (*        wann     was                                                wer    *)
  11. (*---------------------------------------------------------------------------*)
  12. (*        30.03.92 Change methods to seconds                          Stefc  *)
  13. (*        30.03.92 Implements better norton-like                      Stefc  *)
  14. (*        02.04.92 Makes better timing                                Stefc  *)
  15. (*        07.08.92 TStar would only call if Event.What is defined     Stefc  *)
  16. (*        07.08.92 Also hide/show mouse on screen-saving              Stefc  *)
  17. (*        18.08.92 Rename unit from SCRSAV into XSCRSAV               Stefc  *)
  18. (*        18.08.92 Makes the source smaller                           Stefc  *)
  19. (*****************************************************************************)
  20. (*        Beschreibung:  Litte screensaver object like norton-commander      *)
  21. (*                       If you enjoy this object send me your own objects   *)
  22. (*****************************************************************************)
  23.  
  24. UNIT XScrSav;  {$O+,D-,L-}
  25.  
  26. INTERFACE
  27.  
  28. USES (* Y:UNITS\ *)     Dos,        (* Dos-access                    *)
  29.  
  30.      (* Y:TVISION\ *)   Objects,    (* general objects               *)
  31.                         Drivers,    (* Keyboard/Screen/Mouse         *)
  32.                         Views,      (* screen-objects                *)
  33.                         Dialogs,    (* dialogs and items for it      *)
  34.                         App;        (* the application object        *)
  35.  
  36. TYPE
  37.  
  38.   PScreenSaver = ^TScreenSaver;
  39.   TScreenSaver = OBJECT( TView )
  40.     Activ       : BOOLEAN;                 (* Screen Saver activ ? *)
  41.     MaxSecs     : WORD;                 (* activate after n-Ticks  *)
  42.     SecsGone    : WORD;                              (* gone ticks *)
  43.     MyView      : PView;                 (* the final screen-saver *)
  44.     constructor Init( Ticks:word);
  45.     procedure   GetEvent( var Event:TEvent ); virtual;
  46.     function    InitSaverView: PView;  virtual;
  47.   END;
  48.  
  49.